home *** CD-ROM | disk | FTP | other *** search
/ Die Ultimative Software-P…i Collection 1996 & 1997 / Die Ultimative Software-Pakete CD-ROM fur Atari Collection 1996 & 1997.iso / p / pofo / sprachen / pbasic / pbas41 / sieve.bas < prev    next >
Encoding:
BASIC Source File  |  1991-01-06  |  316 b   |  15 lines
  1. 10 START = TIMER
  2. 20 MP=2000:DIM P(MP)
  3. 30 CLS:PRINT "Eratosthenes Sieve - " MP:M=MP
  4. 40 M1=SQR(M)
  5. 50 REM PRINT "2";
  6. 60 FOR I=3 TO M STEP 2
  7. 70   IF P(I)=1 THEN 130
  8. 80 REM PRINT " ";I;
  9. 90   IF I>M1 THEN 130
  10. 100   FOR J=I*I TO M STEP I+I
  11. 110     P(J)=1
  12. 120   NEXT
  13. 130 NEXT
  14. 140 PRINT "Time: " TIMER - START
  15. ə